1 Public Class FrmSALES_COLLECTION_PRINT
2
3     Private Sub cmdcancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdcancel.Click
4         Me.Close()
5     End Sub
6
7     Private Sub cmdprint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdprint.Click
8         Dim Report As New FrmREPORTS
9         Dim xfrom As New CrystalDecisions.Shared.ParameterDiscreteValue
10         Rpt_SqlStr =
"SELECT * FROM TBL_Sales_Receipt WHERE Sales_ID NOT IN (SELECT Sales_ID FROM TBL_Sales_Void) " & _
11                      
"AND Receipt_Date >='" & Format(dtfrom.Value, "MM/dd/yyyy") & "' AND Receipt_Date <='" & Format(dtto.Value, "MM/dd/yyyy") & "'"
12         globalFRM =
"Sales_Report"
13         ParamDVFrom.Value = dtfrom.Value
14         ParamDVTo.Value = dtto.Value
15         Audit_Trail(xUser_ID, TimeOfDay,
"Print Report - Sales Collection ")
16         Me.Close()
17         Report.Show()
18         
'FrmREPORTS.Show()
19     End Sub
20 End Class


Gõ tìm kiếm nhanh...